home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / world.arc / OTHER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-14  |  1.3 KB  |  12 lines
  1. 10  'COPYRIGHT 1985,1986 R.L. LLOYD
  2. 20  CLS:RESTORE 70:FOR Q=1 TO 38:READ N$,LA,LO:PRINT Q;N$,:NEXT
  3. 30      PRINT:INPUT"SELECT BY NUMBER";Q:IF Q=0 THEN Q=LASTA1
  4. 40      IF Q>38 THEN GOTO 20
  5. 50      LASTA1=Q
  6. 60      RESTORE 70:FOR I=1 TO Q:READ N$,LA1,LO1:NEXT:PRINT N$,LA1,LO1
  7. 70  DATA "ALBUQUERQUE NM",35.08,106.65,"ANCHORAGE AK",61.16,149.98,"ANN ARBOR MI",42.28,83.75,"ATLANTA   GA",33.75,84.39,"ATLANTIC CITY NJ",39.36,74.43,"BALTIMORE MD",39.29,76.61,"BANGOR   ME",44.8,68.77,"BIRMINGHAM AL",33.52,86.81
  8. 80  DATA"CHARLESTON SC",32.78,79.93,"CHICAGO IL",41.87,87.64,"COLUMBUS OH",39.96,83,"DALLAS TX",32.79,96.79,"DETROIT MI",42.32,83.05,"HOUSTON TX",29.76,95.36,"JACKSONVILLE FL",30.33,81.65,"LAS VEGAS NV",36.17,115.14,"LOS ANGELES CA",34.05,118.24
  9. 90  DATA"LOUISVILLE KY",38.25,85.76,"MEMPHIS TN",35.15,90.05,"MERRITT ISLAND FL",28.43,80.75,"MIAMI    FL",25.78,80.19,"MILWAUKEE WS",43.04,87.9,"MONTREAL CN",45.5,73.6,"NEW ORLEANS LA",29.95,90.07,"NEW YORK NY",40.75,73.99,"NIAGARA FALLS NY",43.09,79.06
  10. 100  DATA"NOME    AK",64.5,165.42,"ORLANDO FL",28.54,81.38,"PHILADELPHIA PA",39.95,75.15,"PITTSBURGH PA",40.44,80,"SAN DIEGO CA",32.71,117.16,"SAN FRANCISCO CA",37.78,122.41,"SAVANNAH GA",32.08,81.09,"ST LOUIS MO",38.63,90.21,"SYDNEY   AUS",-33.9,-151.2
  11. 110  DATA"TORONTO CN",43.7,79.4,"WASHINGTON DC",38.9,77.01,"WILMINGTON DE",39.75,75.55
  12.